home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard Austrailian (X-1.2.2) / HyperCard Stacks / Phone / background_2152.txt < prev    next >
Encoding:
Text File  |  1988-04-25  |  6.4 KB  |  285 lines
  1. -- background: 2152 from stack: in
  2. -- bmap block id: 2608
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Phone
  6. ----- HyperTalk script -----
  7. on closeField
  8.   put the short name of the target into fieldname
  9.   repeat with x = the number of chars in bkgnd field fieldname down to 1
  10.     if char x of bkgnd field fieldname is not in "0123456789ABCD#*,()- "
  11.     then delete char x of bkgnd field fieldname
  12.   end repeat
  13. end closefield
  14.  
  15.  
  16.  
  17. -- part 1 (field)
  18. -- low flags: 00
  19. -- high flags: 4000
  20. -- rect: left=385 top=74 right=92 bottom=436
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 0
  24. -- font id: 3
  25. -- text size: 9
  26. -- style flags: 256
  27. -- line height: 12
  28. -- part name: area code
  29.  
  30.  
  31. -- part 36 (field)
  32. -- low flags: 00
  33. -- high flags: 0002
  34. -- rect: left=264 top=111 right=150 bottom=435
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 0
  41. -- line height: 12
  42. -- part name: Local Prefixes
  43.  
  44.  
  45. -- part 2 (field)
  46. -- low flags: 00
  47. -- high flags: 4000
  48. -- rect: left=385 top=157 right=175 bottom=436
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 0
  52. -- font id: 3
  53. -- text size: 9
  54. -- style flags: 0
  55. -- line height: 12
  56. -- part name: preamble
  57.  
  58.  
  59. -- part 40 (field)
  60. -- low flags: 00
  61. -- high flags: 4000
  62. -- rect: left=385 top=174 right=192 bottom=436
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 0 / 0
  65. -- text alignment: 0
  66. -- font id: 3
  67. -- text size: 9
  68. -- style flags: 0
  69. -- line height: 12
  70. -- part name: toll prefix
  71.  
  72.  
  73. -- part 3 (field)
  74. -- low flags: 00
  75. -- high flags: 4000
  76. -- rect: left=385 top=191 right=209 bottom=436
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 9
  82. -- style flags: 0
  83. -- line height: 12
  84. -- part name: long dist preamble
  85.  
  86.  
  87. -- part 27 (field)
  88. -- low flags: 00
  89. -- high flags: 4000
  90. -- rect: left=385 top=208 right=226 bottom=436
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 0
  94. -- font id: 3
  95. -- text size: 9
  96. -- style flags: 0
  97. -- line height: 12
  98. -- part name: intl preamble
  99.  
  100.  
  101. -- part 9 (field)
  102. -- low flags: 01
  103. -- high flags: 0000
  104. -- rect: left=259 top=74 right=92 bottom=362
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 0
  108. -- font id: 3
  109. -- text size: 10
  110. -- style flags: 256
  111. -- line height: 13
  112. -- part name: 
  113.  
  114.  
  115. -- part 10 (field)
  116. -- low flags: 01
  117. -- high flags: 0000
  118. -- rect: left=286 top=156 right=174 bottom=386
  119. -- title width / last selected line: 0
  120. -- icon id / first selected line: 0 / 0
  121. -- text alignment: 0
  122. -- font id: 3
  123. -- text size: 10
  124. -- style flags: 0
  125. -- line height: 13
  126. -- part name: 
  127. ----- HyperTalk script -----
  128. on mouseUp
  129.   set visible of card field "info 2" to not the visible of card field "info 2"
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 12 (field)
  135. -- low flags: 01
  136. -- high flags: 0000
  137. -- rect: left=286 top=190 right=208 bottom=386
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 10
  143. -- style flags: 0
  144. -- line height: 13
  145. -- part name: 
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   set visible of card field "info 4" to not the visible of card field "info 4"
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 20 (field)
  154. -- low flags: 01
  155. -- high flags: 0000
  156. -- rect: left=401 top=40 right=58 bottom=466
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 0
  160. -- font id: 3
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: loc time
  165.  
  166.  
  167. -- part 26 (field)
  168. -- low flags: 01
  169. -- high flags: 0000
  170. -- rect: left=286 top=207 right=225 bottom=386
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 0
  174. -- font id: 3
  175. -- text size: 10
  176. -- style flags: 0
  177. -- line height: 13
  178. -- part name: 
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set visible of card field "info 5" to not the visible of card field "info 5"
  182. end mouseUp
  183.  
  184.  
  185.  
  186. -- part 35 (field)
  187. -- low flags: 01
  188. -- high flags: 0000
  189. -- rect: left=259 top=96 right=114 bottom=406
  190. -- title width / last selected line: 0
  191. -- icon id / first selected line: 0 / 0
  192. -- text alignment: 0
  193. -- font id: 3
  194. -- text size: 10
  195. -- style flags: 0
  196. -- line height: 13
  197. -- part name: 
  198. ----- HyperTalk script -----
  199. on mouseUp
  200.   set visible of card field "info 6" to not the visible of card field "info 6"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 39 (field)
  206. -- low flags: 01
  207. -- high flags: 0000
  208. -- rect: left=286 top=173 right=191 bottom=386
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 0 / 0
  211. -- text alignment: 0
  212. -- font id: 3
  213. -- text size: 10
  214. -- style flags: 0
  215. -- line height: 13
  216. -- part name: 
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   set visible of card field "info 3" to not the visible of card field "info 3"
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 44 (button)
  225. -- low flags: 00
  226. -- high flags: E006
  227. -- rect: left=79 top=205 right=223 bottom=215
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 3
  232. -- text size: 10
  233. -- style flags: 0
  234. -- line height: 13
  235. -- part name: Speaker (tone dialing)
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   set hilite of bkgnd button "speaker (tone dialing)" to true
  239.   set hilite of bkgnd button "modem (tone dialing)" to false
  240.   set hilite of bkgnd button "modem (pulse dialing)" to false
  241. end mouseUp
  242.  
  243.  
  244.  
  245. -- part 45 (button)
  246. -- low flags: 00
  247. -- high flags: A006
  248. -- rect: left=79 top=222 right=240 bottom=215
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 0 / 0
  251. -- text alignment: 1
  252. -- font id: 3
  253. -- text size: 10
  254. -- style flags: 0
  255. -- line height: 13
  256. -- part name: Modem (tone dialing)
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   set hilite of bkgnd button "speaker (tone dialing)" to false
  260.   set hilite of bkgnd button "modem (tone dialing)" to true
  261.   set hilite of bkgnd button "modem (pulse dialing)" to false
  262. end mouseUp
  263.  
  264.  
  265.  
  266. -- part 46 (button)
  267. -- low flags: 00
  268. -- high flags: A006
  269. -- rect: left=79 top=239 right=257 bottom=215
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 0 / 0
  272. -- text alignment: 1
  273. -- font id: 3
  274. -- text size: 10
  275. -- style flags: 0
  276. -- line height: 13
  277. -- part name: Modem (pulse dialing)
  278. ----- HyperTalk script -----
  279. on mouseUp
  280.   set hilite of bkgnd button "speaker (tone dialing)" to false
  281.   set hilite of bkgnd button "modem (tone dialing)" to false
  282.   set hilite of bkgnd button "modem (pulse dialing)" to true
  283. end mouseUp
  284.  
  285.